| Filename | (eval 9)[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/JSON.pm:353] |
| Statements | Executed 2 statements in 89µs |
| Eval Invoked At | /home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/JSON.pm line 353 |
| Sibling evals | 1, 2 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 91µs | 364µs | JSON::XS::Boolean::BEGIN@3 |
| 0 | 0 | 0 | 0s | 0s | JSON::XS::Boolean::__ANON__[:13] |
| 0 | 0 | 0 | 0s | 0s | JSON::XS::Boolean::__ANON__[:4] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | |||||
| 2 | package JSON::XS::Boolean; | ||||
| 3 | # spent 364µs (91+273) within JSON::XS::Boolean::BEGIN@3 which was called:
# once (91µs+273µs) by JSON::Boolean::_overrride_overload at line 14 | ||||
| 4 | '""' => sub { ${$_[0]} == 1 ? 'true' : 'false' }, | ||||
| 5 | 'eq' => sub { | ||||
| 6 | my ($obj, $op) = ref ($_[0]) ? ($_[0], $_[1]) : ($_[1], $_[0]); | ||||
| 7 | if ($op eq 'true' or $op eq 'false') { | ||||
| 8 | return "$obj" eq 'true' ? 'true' eq $op : 'false' eq $op; | ||||
| 9 | } | ||||
| 10 | else { | ||||
| 11 | return $obj ? 1 == $op : 0 == $op; | ||||
| 12 | } | ||||
| 13 | }, | ||||
| 14 | 2 | 89µs | 2 | 636µs | ); # spent 364µs making 1 call to JSON::XS::Boolean::BEGIN@3
# spent 272µs making 1 call to overload::import |
| 15 | |||||
| 16 | ; |